function f=VertRest(x,param)
% VertRest(x,param)
%

k=param(1);

f=-k*x;

end
